home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_gimp.idb / usr / freeware / share / gimp / scripts / blend-anim.scm.z / blend-anim.scm
Encoding:
GIMP Script-Fu Script  |  1999-07-21  |  8.2 KB  |  253 lines
  1. ; The GIMP -- an image manipulation program
  2. ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  3. ; 
  4. ; This program is free software; you can redistribute it and/or modify
  5. ; it under the terms of the GNU General Public License as published by
  6. ; the Free Software Foundation; either version 2 of the License, or
  7. ; (at your option) any later version.  
  8. ; 
  9. ; This program is distributed in the hope that it will be useful,
  10. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. ; GNU General Public License for more details.
  13. ; 
  14. ; You should have received a copy of the GNU General Public License
  15. ; along with this program; if not, write to the Free Software
  16. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17. ;
  18. ;
  19. ; blend-anim.scm   version 1.02   05/28/98
  20. ;
  21. ; CHANGE-LOG:
  22. ; 1.00 - initial release
  23. ; 1.01 - some code cleanup, no real changes
  24. ; 1.02 - use gimp-message to output an error message if called
  25. ;        with less than three layers
  26. ;
  27. ; Copyright (C) 1997-98 Sven Neumann (neumanns@uni-duesseldorf.de)
  28. ; 
  29. ;  
  30. ; Blends two or more layers over a backgound, so that an animation can
  31. ; be saved. A minimum of three layers is required.
  32.  
  33. (define (multi-raise-layer image layer times)
  34.   (while (> times 0)
  35.      (gimp-image-raise-layer image layer)
  36.      (set! times (- times 1))))
  37.        
  38.   
  39. (define (script-fu-blend-anim img
  40.                   drawable
  41.                   frames
  42.                   max-blur
  43.                   looped)
  44.   (let* ((max-blur (max max-blur 0))
  45.      (frames (max frames 0))
  46.      (image (car (gimp-channel-ops-duplicate img)))
  47.      (width (car (gimp-image-width image)))
  48.      (height (car (gimp-image-height image)))
  49.      (layers (gimp-image-get-layers image))
  50.      (num-layers (car layers))
  51.      (layer-array (cadr layers))
  52.      (slots (- num-layers 2))
  53.      (bg-layer (aref layer-array (- num-layers 1)))
  54.      (max-width 0)
  55.      (max-height 0)
  56.      (offset-x 0)
  57.      (offset-y 0))
  58.     
  59.   (if (> num-layers 2)
  60.       (begin
  61.  
  62.     (gimp-image-disable-undo image)
  63.  
  64.     (if (= looped TRUE)
  65.         ; add a copy of the lowest blend layer on top 
  66.         (let* ((copy (car (gimp-layer-copy 
  67.                    (aref layer-array (- num-layers 2)) TRUE))))
  68.           (gimp-image-add-layer image copy 0)
  69.           (set! layers (gimp-image-get-layers image))
  70.           (set! num-layers (car layers))
  71.           (set! layer-array (cadr layers))
  72.           (set! slots (- num-layers 2))
  73.           (set! bg-layer (aref layer-array (- num-layers 1)))))
  74.  
  75.     ; make all layers invisible and check for sizes
  76.     (let* ((min-offset-x width)
  77.            (min-offset-y height)
  78.            (layer-count slots)) 
  79.       (gimp-layer-set-visible bg-layer FALSE)
  80.       (while (> layer-count -1)
  81.              (let* ((layer (aref layer-array layer-count))
  82.             (layer-width (+ (car (gimp-drawable-width layer))
  83.                     (* max-blur 2)))
  84.             (layer-height (+ (car (gimp-drawable-height layer))
  85.                      (* max-blur 2)))
  86.             (layer-offsets (gimp-drawable-offsets layer))
  87.             (layer-offset-x (- (car layer-offsets) max-blur))
  88.             (layer-offset-y (- (cadr layer-offsets) max-blur)))
  89.            (gimp-layer-set-visible layer FALSE)
  90.            (set! max-width (max max-width layer-width))
  91.            (set! max-height (max max-height layer-height))
  92.            (set! min-offset-x (min min-offset-x layer-offset-x))
  93.            (set! min-offset-y (min min-offset-y layer-offset-y))               
  94.            (set! layer-count (- layer-count 1))))
  95.       (set! offset-x (- (car (gimp-drawable-offsets bg-layer)) 
  96.                 min-offset-x))
  97.       (set! offset-y (- (cadr (gimp-drawable-offsets bg-layer)) 
  98.                 min-offset-y)))
  99.     
  100.     ; create intermediate frames by merging copies of adjascent layers 
  101.     ; with the background layer 
  102.     (let* ((layer-count slots))
  103.       (while (> layer-count 0)
  104.          (let* ((frame-count frames)
  105.             (lower-layer (aref layer-array layer-count))
  106.             (upper-layer (aref layer-array (- layer-count 1))))
  107.            (while (> frame-count 0)
  108.               (let* ((opacity (* (/ frame-count (+ frames 1)) 100))
  109.              (blur (/ (* opacity max-blur) 100))
  110.              (upper-copy (car (gimp-layer-copy upper-layer TRUE)))
  111.              (lower-copy (car (gimp-layer-copy lower-layer TRUE)))
  112.              (bg-copy (car (gimp-layer-copy bg-layer TRUE))))
  113.             (gimp-image-add-layer image bg-copy 0)
  114.             (gimp-image-add-layer image lower-copy 0)
  115.             (gimp-image-add-layer image upper-copy 0)
  116.             (gimp-layer-set-visible upper-copy TRUE)
  117.             (gimp-layer-set-visible lower-copy TRUE)
  118.             (gimp-layer-set-visible bg-copy TRUE)
  119.             (gimp-layer-set-opacity upper-copy (- 100 opacity))
  120.             (gimp-layer-set-opacity lower-copy opacity)
  121.             (gimp-layer-set-opacity bg-copy 100)
  122.             (if (> max-blur 0)
  123.             (let* ((layer-width (car (gimp-drawable-width upper-copy)))
  124.                    (layer-height (car (gimp-drawable-height upper-copy))))
  125.               (gimp-layer-set-preserve-trans upper-copy FALSE)
  126.               (gimp-layer-resize upper-copy
  127.                          (+ layer-width (* blur 2))
  128.                          (+ layer-height (* blur 2))
  129.                          blur
  130.                          blur)
  131.               (plug-in-gauss-rle 1 
  132.                          image 
  133.                          upper-copy 
  134.                          blur 
  135.                          TRUE TRUE)
  136.               (set! blur (- max-blur blur))
  137.               (gimp-layer-set-preserve-trans lower-copy FALSE)
  138.               (set! layer-width (car (gimp-drawable-width 
  139.                           lower-copy)))
  140.               (set! layer-height (car (gimp-drawable-height 
  141.                            lower-copy)))
  142.               (gimp-layer-resize lower-copy
  143.                          (+ layer-width (* blur 2))
  144.                          (+ layer-height (* blur 2))
  145.                          blur
  146.                          blur)
  147.               (plug-in-gauss-rle 1 
  148.                          image 
  149.                          lower-copy 
  150.                          blur 
  151.                          TRUE TRUE)))
  152.             (gimp-layer-resize bg-copy 
  153.                        max-width
  154.                        max-height
  155.                        offset-x
  156.                        offset-y)
  157.             (let* ((merged-layer (car (gimp-image-merge-visible-layers 
  158.                          image CLIP-TO-IMAGE))))
  159.               (gimp-layer-set-visible merged-layer FALSE))
  160.             (set! frame-count (- frame-count 1))))
  161.            (set! layer-count (- layer-count 1)))))
  162.     
  163.     ; merge all original blend layers but the lowest one 
  164.         ; with copies of the background layer 
  165.     (let* ((layer-count 0))
  166.       (while (< layer-count slots)
  167.              (let* ((orig-layer (aref layer-array layer-count))    
  168.             (bg-copy (car (gimp-layer-copy bg-layer TRUE))))
  169.            (gimp-image-add-layer image 
  170.                      bg-copy 
  171.                      (* layer-count (+ frames 1)))
  172.            (multi-raise-layer image 
  173.                   orig-layer 
  174.                   (+ (* (- slots layer-count) frames) 1))
  175.            (gimp-layer-set-visible orig-layer TRUE)
  176.            (gimp-layer-set-visible bg-copy TRUE)
  177.            (gimp-layer-resize bg-copy 
  178.                   max-width
  179.                   max-height
  180.                   offset-x
  181.                   offset-y)
  182.            (let* ((merged-layer (car (gimp-image-merge-visible-layers 
  183.                     image CLIP-TO-IMAGE))))
  184.          (gimp-layer-set-visible merged-layer FALSE))
  185.            (set! layer-count (+ layer-count 1)))))
  186.     
  187.     ; merge the lowest blend layer with the background layer  
  188.     (let* ((orig-layer (aref layer-array (- num-layers 2))))
  189.       (gimp-layer-set-visible bg-layer TRUE)
  190.       (gimp-layer-set-visible orig-layer TRUE)
  191.       (gimp-image-merge-visible-layers image CLIP-TO-IMAGE))
  192.     
  193.     ; make all layers visible again
  194.     (let* ((result-layers (gimp-image-get-layers image))
  195.            (num-result-layers (car result-layers))
  196.            (result-layer-array (cadr result-layers))
  197.            (layer-count (- num-result-layers 1)))
  198.       (while (> layer-count -1)
  199.          (let* ((layer (aref result-layer-array layer-count))
  200.             (name (string-append "Frame " 
  201.                      (number->string 
  202.                       (- num-result-layers layer-count) 10))))
  203.            (gimp-layer-set-visible layer TRUE)
  204.            (gimp-layer-set-name layer name)
  205.            (set! layer-count (- layer-count 1))))
  206.     
  207.       (if (= looped TRUE)
  208.           ; remove the topmost layer
  209.           (gimp-image-remove-layer image (aref result-layer-array 0))))
  210.           
  211.     (gimp-image-enable-undo image)
  212.     (gimp-display-new image)
  213.     (gimp-displays-flush))
  214.   (gimp-message "Blend Animation needs at least three source layers"))))
  215.  
  216. (script-fu-register "script-fu-blend-anim" 
  217.             "<Image>/Script-Fu/Animators/Blend"
  218.             "Blend two or more layers over a background, so that an 
  219.                      animation can be saved"
  220.             "Sven Neumann (neumanns@uni-duesseldorf.de)"
  221.             "Sven Neumann"
  222.             "05/28/1998"
  223.             "RGB RGBA GRAY GRAYA"
  224.             SF-IMAGE "Image" 0
  225.             SF-DRAWABLE "Drawable" 0
  226.             SF-VALUE "Intermediate Frames" "3"
  227.             SF-VALUE "Max. Blur Radius" "0"
  228.             SF-TOGGLE "Looped" TRUE)
  229.  
  230.  
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249.  
  250.  
  251.  
  252.  
  253.